Publicado el Dejar un comentario

Cambiar Color de los cuadros de texto del Punto de Venta

Mediante este video podran hacer el cambio de colores de los cuadros de texto asi como el cambio de las partidas del mismo.

Procedimiento PUNTOV001
Colocar esta sintaxis
Ejemplo de linea 017
txtFields(0).BackColor = VbRed ‘cliente
txtFields(1).BackColor = VbBlack ‘vendedor
txtFields(2).BackColor = VbBlue ‘muestra estacion y hora
txtFields(3).BackColor = VbCyan ‘muestra los mensajes
txtFields(4).BackColor = Vbyellow ‘invocar la forma de productos flecha abajo

Procedimiento PUNTOV055
Colocar esta sintaxis
Ejemplo de linea 100
fg2.CellBackColor = RGB( 99, 100, 200 )

Publicado el Dejar un comentario

Desactivar caja de Texto de Estaciones en Login

1er Tip del 2020

De tip´s en tip’s Aprendo Deseas Desactivar la caja de cambio de Estaciones
  1.     Procedimiento Login005 la Siguiente Linea txtEstacion.Enabled = False
  2. Guarda
  3. Cierra y abre tu sistema.
Cierra y abre tu sistema.
Publicado el 4 comentarios

Alinear y Centrar el texto del ticket con PadC, PadL y PadR

Alinear_centrar_texto_mybusinessposEn este ejemplo veremos cómo alinear el texto de un ticket con las funciones

  • PadL(cadenaTexto,Longitud). Rellena de espacios a la izquierda; Alineación a la Derecha
  • PadR(cadenaTexto,Longitud). Rellena de espacios a la derecha; Alineación a la Izquierda
  • PadC(cadenaTexto,Longitud). Rellena de espacios al centro; Alineación Centrado


Para lograrlo, crearemos tres funciones, aunque PadL ya viene por default, aquí la colocaremos.

Sub Main()
'La letra posterior a PAD es el lado que se rellenará de espacios
a = padL ("Frase de prueba",40) 'Relleno IZQUIERDO. Alinea a la derecha
b = PadC ("Frase de prueba",40) 'Ambos lados. Alinear al centro
c = PadR ("Frase de prueba",40) 'Relleno DERECHO. Alineación a la izquierda

mymessage "PadL: '" & a & "'" & vbcrlf & _
"PadC: '" & b & "'" & vbcrlf &_
"PadR: '" & c & "'"

End Sub

'PADL() Alineación a la DERECHA inserta los caracteres de relleno a la Izquierda
Function PadL(cadena,nLongitud)
dim clen
dim temp
dim char
char = " " 'espacio en blanco
on error resume next
'Tomamos la cadena enviada en el parámetro
'eliminando los chares vacios izq-dch
temp = trim(cadena)
clen = len(temp)
for n=1 to nLongitud
char = char & " "
Next

'Analizamos si la nLongitud justificada es menos
'que la propia cadena enviada en parámetro.
if clen < nLongitud then temp = mid(char,1,nLongitud - clen) & temp 'Alineación a la Derecha end if PadL = temp end function 'PADR() Alineación a la IZQUIERDA inserta los caracteres de relleno a la derecha Function PadR(cadena,nLongitud) dim clen dim temp char = " " 'espacio en blanco on error resume next 'Tomamos la cadena enviada en el parámetro 'eliminando los chares vacios izq-dch temp = trim(cadena) clen = len(temp) for n=1 to nLongitud char = char & " " Next 'Analizamos si la nLongitud justificada es menos 'que la propia cadena enviada en parámetro. if clen < nLongitud then temp = temp & mid(char,1,nLongitud - clen) 'Alineación a la Izquierda end if PadR = temp end function 'PADC() Alineación al CENTRO inserta los caracteres de relleno a ambos lados Function PadC(cadena,nLongitud) dim clen dim temp char = " " 'espacio en blanco 'on error resume next 'Tomamos la cadena enviada en el parámetro 'eliminando los chares vacios izq-dch temp = trim(cadena) clen = len(temp) for n = 1 to nLongitud char = char & " " Next 'Espacios al lado Izquierdo nEspaciosA = formato((nLongitud - clen)/2 , "#.0") DondeEstaElPunto = clAt( ".", nEspaciosA ) - 1 'Espacios al lado derecho nEspaciosA = mid(nEspaciosA,1,DondeEstaElPunto) nEspaciosB = nLongitud -clen - nEspaciosA 'Analizamos si la nLongitud justificada es menos 'que la propia cadena enviada en parámetro. if clen < nLongitud then temp = mid(char,1,nEspaciosA) & _ temp & _ mid(char,1,nEspaciosB) 'Alineación a la Izquierda end if PadC = temp end function

Espero sea de utilidad estas funciones que dejo a su disposición en espera de que correspondan con un pomo para seguir inspirados.
Saludos
José Félix

Publicado el Dejar un comentario

Resultados de MyBusiness POS 2012: Román Rosales



Factura Electrónica CFDI 2010

20.28 MB 478 descargas

La siguiente entrevista está tomada de la publicación del Boletín de la Computación, la cual me he tomado el atrevimiento de postearla porque considero que es importante conocer y saber cómo es que el equipo de desarrolladores de MyBusiness POS visualizan el éxito o fracaso de el software; el cual tiene repercusiones directas en todos los Distribuidores que hemos batallado bastante para hacer frente a los retos que tenemos con el usuario final, que es el cliente.
La entrevista fue tomada de este link
www.boletin.com.mx, consultado el día 2011-05-01.

“Distribuidores cristalizan oportunidades durante Congreso MyBusiness POS 2011 en Cancún”
Fecha de publicación 24/05/2011
Por Erik Sierrra

En el marco de la cuarta edición del Congreso MyBusiness POS llevado a cabo en Cancún del 19 al 22 de Mayo de 2011, Román Rosales, Director Comercial de la marca compartió en entrevista exclusiva con Boletín de la Computación los alcances que el evento tuvo en comparación con las ediciones anteriores y el impacto generado en los distribuidores asistentes.

“Este año -comentó el ejecutivo- superamos nuestras expectativas pues pudimos compartir con los distribuidores un balance renovado en cuanto a generación de negocios y entretenimiento. Los canales pudieron establecer un contacto directo con algunos de los fabricantes más importantes de la Industria TI en el segmento de Código de Barras y Punto de Venta y disfrutar con sus familias de actividades recreativas como espectáculos de música y teatro. Los resultados del Congreso MyBusiness POS 2011 en Cancún han sido muy satisfactorios pues nuestros socios han establecido muchos vínculos nuevos de negocio al tiempo que disfrutan de su estancia en las playas del Caribe.”

Por otro lado, Rosales comentó que el Congreso es un parteaguas en el mercado de Punto de Venta pues al término del mismo las ventas de los canales incrementan de manera considerable: “Durante el evento los distribuidores captan nuevas oportunidades de negocios que se cristalizan de manera efectiva debido a que las conferencias les brindan las herramientas que requieren para cerrar sus proyectos pendientes y generar otros nuevos.”

En cuanto a las innovaciones que la marca lanza al mercado, el ejecutivo comentó que el evento es la plataforma ideal para presentar productos de vanguardia como el nuevo MyBusiness POS Double Entry y el nuevo MyBusiness POS 2012: “Con estos lanzamientos, los distribuidores podrán llevar una oferta de valor para las empresas, pues el nuevo sistema contable Double Entry hace interfaz con cualquier sistema de administración empresarial, además de que podrán ofrecer un nuevo sistema de facturación electrónica que emite tickets con código bidimensional, puede generar comprobantes fiscales digitales y convierte a MyBusiness en un mayorista de timbrado a través de MyBusiness Online, un sistema efectivo de prepago para que los distribuidores puedan obtener ganancias en la oferta de timbres fiscales digitales”.

Entre otras soluciones presentadas por la marca durante el Congreso, Rosales subrayó el lanzamiento de productos como Concentrador POS 2012 compatible con sistemas MyBusiness POS 2010 y superiores, Mobile Business 2012 con software para impresoras portátiles de 2.5 y 3 pulgadas, el sistema MyMoney 2012 que cuenta con control de cuentas bancarias y conciliación, impresión de cheques, pagos programados, catálogos de movimientos y conceptos bancarios y control de acceso a usuarios.

Además de estas soluciones, el ejecutivo mencionó que la marca está formando alianzas con socios tecnológicos como Microsoft, Ycaro, Citizen, Bixolon, Honeywell, Unitech, Datalogic, Motorola, HP, BTO, Logic Controls, Star Micronics, Elo TouchSystems, EC Line y Datamax-O’Neil, por mencionar algunas: “También unimos fuerzas con empresas como CT Internacional, BlueStar, Compugolfo, Azerty, Nimax y Tec Electrónica, quienes son algunos de nuestros socios mayoristas dedicados al mercado de Punto de Venta y que están comprometidos con impulsar el desarrollo de los canales de distribución en nuestro país”.

Rosales aseguró que uno de los objetivos de MyBusiness POS es superar año con año las expectativas para el Congreso: “Para la próxima edición nos hemos fijado como meta aumentar el número de inscripciones y de marcas patrocinadoras pues nuestro compromiso es contribuir con el crecimiento y desarrollo de los distribuidores ofreciéndoles la tecnología de mayor vanguardia para que puedan aprovechar nuevas oportunidades de negocios”.

Por último, el ejecutivo invitó a los distribuidores a estar pendientes e inscribirse en la próxima edición de uno de los eventos de Punto de Venta y Código de Barras más importantes de Latinoamérica: “Es muy importante que los distribuidores que quieran aprovechar verdaderas oportunidades de negocios anticipen su participación en el Congreso MyBusiness POS, pues es la plataforma ideal para encontrarse de frente con las marcas más importantes del mercado de Punto de Venta y Código de Barras de la Industria TI en nuestro país y generar nuevas sinergias comerciales para cerrar con éxito negocios rentables y de largo plazo.”